object CertViewForm: TCertViewForm Left = 160 Top = 112 BorderStyle = bsDialog Caption = 'Certificate' ClientHeight = 433 ClientWidth = 522 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose PixelsPerInch = 96 TextHeight = 13 object PageControl: TPageControl Left = 0 Top = 0 Width = 522 Height = 393 ActivePage = tsGeneral Align = alTop TabOrder = 0 object tsGeneral: TTabSheet Caption = 'General' object htmlPanel: TPanel Left = 0 Top = 0 Width = 514 Height = 365 Align = alClient BevelOuter = bvNone BorderWidth = 9 TabOrder = 0 object htmlAuxPanel: TPanel Left = 9 Top = 9 Width = 496 Height = 312 Align = alTop BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 0 end object bAddToAddrBook: TButton Left = 16 Top = 332 Width = 161 Height = 25 Caption = 'Add to Address Book' TabOrder = 1 OnClick = bAddToAddrBookClick end end end object tsDetails: TTabSheet Caption = 'Details' object lvDetails: TListView Left = 8 Top = 8 Width = 500 Height = 217 Columns = < item Caption = 'Field' Width = 200 end item Caption = 'Value' Width = -2 WidthType = ( -2) end> ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnChange = lvDetailsChange OnClick = lvDetailsClick end object mDetails: TMemo Left = 8 Top = 232 Width = 500 Height = 124 ReadOnly = True TabOrder = 1 end end object tsPath: TTabSheet Caption = 'Certification Path' object lStatus: TLabel Left = 8 Top = 264 Width = 78 Height = 13 Caption = 'Certificate status' FocusControl = mStatus end object gbPath: TGroupBox Left = 8 Top = 8 Width = 497 Height = 241 Caption = 'Certification Path' TabOrder = 0 object bView: TButton Left = 408 Top = 208 Width = 83 Height = 25 Caption = 'View' Enabled = False TabOrder = 0 OnClick = bViewClick end object tvPath: TTreeView Left = 8 Top = 16 Width = 481 Height = 185 Indent = 19 ReadOnly = True ShowButtons = False ShowRoot = False TabOrder = 1 OnChange = tvPathChange OnClick = tvPathClick OnCollapsing = tvPathCollapsing OnDblClick = tvPathDblClick end object bAddTrustedRoot: TButton Left = 16 Top = 208 Width = 153 Height = 25 Caption = 'Add to Trusted' TabOrder = 2 OnClick = bAddTrustedRootClick end end object mStatus: TMemo Left = 8 Top = 280 Width = 497 Height = 76 ReadOnly = True TabOrder = 1 end end end object bOK: TButton Left = 416 Top = 400 Width = 99 Height = 25 Cancel = True Caption = 'OK' Default = True ModalResult = 1 TabOrder = 1 end end